Acala

Row

Pool
acala-subql
acala-dex-subql
Difference
id tvlUSD volumeUSD_24H volumeUSD_7D tvlUSD_DEX volumeUSD_24H_DEX volumeUSD_7D_DEX Absolute Percentage
lp://AUSD/LDOT 707,558.2 1,657.42 310,059.6 1,413,986.1 14,152.90 675,078.4 706,427.85 633.2
lp://AUSD/fa%3A%2F%2F4 111,560.7 217.03 115,453.8 223,121.4 1,179.30 427,223.6 111,560.71 100
lp://DOT/LCDOT 4,495,709.7 3,631.67 1,145,594.8 4,472,117.7 3,612.81 1,220,819.5 23,592.03 21.1
lp://AUSD/LCDOT 2,439,559.9 3,659.32 1,002,426.0 2,431,134.0 3,646.28 1,039,929.9 8,425.84 7.6
lp://ACA/AUSD 1,997,309.5 3,028.52 1,514,460.3 2,003,487.0 5,073.11 1,651,011.6 6,177.45 5.5

Karura

Row

Pool
acala-subql
acala-dex-subql
Difference
id tvlUSD volumeUSD_24H volumeUSD_7D tvlUSD_DEX volumeUSD_24H_DEX volumeUSD_7D_DEX Absolute Percentage
lp://KBTC/KUSD -1,647,220.08 -732.67 -3,998.66 NA NA NA NA NA
lp://KINT/KUSD -1,301,219.02 -474.60 -7,000.68 NA NA NA NA NA
lp://PHA/KUSD -1,065,653.59 -97.32 -1,156.65 NA NA NA NA NA
lp://KUSD/KINT 1,290,622.46 -679.62 -7,004.67 9,665.39 1,039.81 22,998.84 1,280,957.07 NA
lp://KUSD/KBTC 1,568,598.59 -1,301.63 -4,638.20 520,424.61 23,893.38 82,908.80 1,048,173.98 NA
lp://KUSD/PHA 1,061,248.66 -9.61 -1,025.26 14,500.52 31.95 8,710.55 1,046,748.14 NA
lp://TAI/taiKSM 0.00 0.00 0.00 8,545.10 2,755.24 10,473.42 8,545.10 NA
lp://KAR/LKSM 635,463.01 12,733.59 62,694.97 638,072.05 18,950.51 212,277.85 2,609.04 NA
lp://KUSD/KSM 571,323.51 1,201.75 501,550.65 572,357.24 1,202.84 509,576.60 1,033.73 NA
lp://KAR/KSM 1,125,569.72 32.60 259,538.80 1,125,021.29 32.58 272,562.66 548.43 NA
lp://KUSD/ARIS2 182,705.25 1,357.27 21,808.58 182,936.81 3,551.03 54,721.18 231.56 NA
lp://KUSD/LKSM 490,454.68 156.13 160,171.07 490,231.52 156.01 241,878.38 223.16 NA
lp://KAR/KUSD 709,104.37 699.78 223,275.24 709,193.67 747.88 369,517.98 89.30 NA
lp://KUSD/RMRK 12,336.20 1,628.79 26,824.07 12,256.41 1,628.81 26,882.16 79.79 NA
lp://KAR/QTZ 10,163.83 1,239.54 12,932.12 10,228.70 3,128.55 32,689.36 64.86 NA
lp://KUSD/BNC 57,056.36 895.05 10,308.03 56,999.39 895.05 10,424.42 56.97 NA
lp://KSM/ARIS 53.43 5.26 64.52 107.06 9.73 203.29 53.63 NA
lp://KSM/LKSM 112,460.65 2,794.64 19,774.62 112,415.94 2,793.60 27,431.40 44.71 NA
lp://KUSD/QTZ 9,864.34 24.69 15,070.96 9,882.26 24.85 30,089.64 17.92 NA
lp://KSM/RMRK 7,189.01 455.74 7,867.92 7,195.22 456.16 7,874.98 6.21 NA
lp://KUSD/CSM 32,098.82 2.08 5,189.88 32,102.98 2.08 5,207.13 4.15 NA
---
title: "Acala / Karura Pool Stats"
output:
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: scroll
    social: menu
    source_code: embed
---

```{css custom1, echo=FALSE}
.dataTables_scrollBody {
    max-height: 100% !important;
}
```

```{r global, include=FALSE}

library(knitr)
knitr::opts_chunk$set(
  message = FALSE,
  warning = FALSE,
  comment = "#>"
)

library(kableExtra)
library(formattable)
library(lubridate)
library(flexdashboard)
library(DT)
library(subscanr)
library(ghql)
x <- GraphqlClient$new()

# Helper function to concat
`%+%` <- function(a, b) paste0(a, b)

# library(reticulate)

```

```{r tokens, cache = TRUE, include=FALSE}

pools_a <- getPoolStats_acala('acala')
pools_a[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_a[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

pools_a_dex <- getPoolStats_acala_dex('acala') %>%
  setnames("totalTVL", "tvlUSD_DEX")
pools_a_dex[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_a_dex[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

both_a <- merge(pools_a[, .(id, tvlUSD, volumeUSD_24H, volumeUSD_7D)],
                pools_a_dex[, .(id, tvlUSD_DEX, volumeUSD_24H, volumeUSD_7D)],
                by = "id",
                all = TRUE,
                suffixes = c("", "_DEX"))
both_a[, Absolute := abs(tvlUSD - tvlUSD_DEX)] %>% 
  setorder(-Absolute)
both_a[, Percentage := round((Absolute / min(tvlUSD, tvlUSD_DEX)) * 100, 1)]

both_a[, Percentage := ifelse(Percentage > 5, 
                   cell_spec(Percentage, color = "red"), 
                   cell_spec(Percentage, color = "green"))]



pools_k <- getPoolStats_acala('karura')
pools_k[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_k[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

# FOR DEX must use dailyTradeVolumeUSD instead of tradeVolumeUSD
pools_k_dex <- getPoolStats_acala_dex('karura') %>%
  setnames("totalTVL", "tvlUSD_DEX")
pools_k_dex[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_k_dex[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

pools_k[, .(id, token0.name, token1.name)]

both_k <- merge(pools_k[, .(id, tvlUSD, volumeUSD_24H, volumeUSD_7D)],
                pools_k_dex[, .(id, tvlUSD_DEX, volumeUSD_24H, volumeUSD_7D)],
                by = "id",
                all = TRUE,
                suffixes = c("", "_DEX"))
both_k[, Absolute := abs(tvlUSD - tvlUSD_DEX)] %>% 
  setorder(-Absolute)
both_k[, Percentage := round((Absolute / min(tvlUSD, tvlUSD_DEX)) * 100, 1)]

both_k[, Percentage := ifelse(Percentage > 5, 
                   cell_spec(Percentage, color = "red"), 
                   cell_spec(Percentage, color = "green"))]

```

# Acala {.tabset}

Row
----

```{r acala1}

knitr::kable(both_a, escape = FALSE, digits = 2, format.args = list(big.mark = ",")) %>%
  kable_styling() %>%
  add_header_above(c("Pool" = 1, "acala-subql" = 3, "acala-dex-subql" = 3, "Difference" = 2))

```


# Karura {.tabset}

Row
----

```{r karura1}

knitr::kable(both_k, escape = FALSE, digits = 2, format.args = list(big.mark = ",")) %>%
  kable_styling() %>%
  add_header_above(c("Pool" = 1, "acala-subql" = 3, "acala-dex-subql" = 3, "Difference" = 2))

```